منتديات الفريق العربي للبرمجة -> عرض التائج المدخلة بين تاريخين بحيث يتم عرضها في

المشرف المتميز لشهرأكتوبر 2004		العضو المميز لشهر أكتوبر2004
خدمة رفع الصور الى المنتدى	===	سابق	===

الفريق العربي للبرمجة

تعليمات

بحث

اعضاء

اجندة

مسجل دخول بالاسم: eng_ashraf ( تسجيل خروج )

لوحة التحكم · 0 رسائل جديدة · عرض المشاركات الجديدة · المساعد الشخصي

منتديات الفريق العربي للبرمجة -> منتديات لغات البرمجة العام -> منتدى مبرمجي لغة Microsoft Visual Basic

عرض التائج المدخلة بين تاريخين بحيث يتم عرضها في, DataGrid1 مع امكانية طباعة النتائج في

تعقب هذا الموضوع | أرسل هذا الموضوع بالبريد الالكتروني | طباعة الموضوع

المهنا	مرجع رابط المشاركة : Feb 5 2005, 10:08 PM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	هل من الممكن المساعدة في عرض التائج المدخلة بين تاريخين بحيث يتم عرضها في DataGrid1 مع امكانية طباعة النتائج في DataReport2 نتائج الفرز بين التاريخين يعني حسب تاريخ ادخال البيانات مع جزيل الشكر واسف لاتعابكم ملف مرفق ( عددع مرات التحميل : 29 ) عرض البياتات المخلة بين تاريخين.rar

major	مرجع رابط المشاركة : Feb 6 2005, 12:34 AM
عضو مجموعة اعضاء مشاركات : 53 رقم العضو 39,932 انضم في : 16-January 05	لقد رأيت قاعدة البيانات ولا يوجد بها حقل تاريخي لكي يتم البحث فيه

المهنا	مرجع رابط المشاركة : Feb 6 2005, 12:42 PM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	اعلم واريد المساعدة لو سمحت هلا قمت باضافة الحقل حتي يكون بالمواصفات التي تريدها انت في عمل الكود

المهنا	مرجع رابط المشاركة : Feb 6 2005, 01:21 PM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	قمت باضافة الحقل كما طلبت وقمت بعرضه في مربعات النص والباقي منكم المساعة ملف مرفق ( عددع مرات التحميل : 39 ) عرض البياتات المخلة بين تاريخين بعد إضافة حقل التاريخ.rar

المهنا	مرجع رابط المشاركة : Feb 8 2005, 01:56 PM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	up

المهنا	مرجع رابط المشاركة : Feb 12 2005, 10:17 PM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	up

nasser50001

مرجع رابط المشاركة : Feb 13 2005, 08:52 AM

عضو

مجموعة اعضاء
مشاركات : 127
رقم العضو 39,100
انضم في : 4-January 05

أخي المهنا

معلش على التأخر ولكن والله مشاغل كثيرة

أولا : انت يجب أن تفهم الموضوع حتى تستطيع عمل هذه الأشياء بنفسك
والفكرة تقوم على التالي

أولا : فتح جدول يعتمد على جملة SQL مثلا إذا أردت البحث عن البيانات بين تاريخين وسوف أتعرض لهذه الفكار في الحلقة القادمة من سلسلة الدروس التي أقدمها
ما علينا لو اردت البحث عن البيانات بين تاريخين بتكتب الجملة التالية :

CODE

rs.Open "select * from [الفواتير] where [التاريخ]>='" + Text2.Text + "' and [التاريخ]<='" + Text3.Text + " ' ", db, adOpenDynamic, adLockOptimistic

طبعا البيانات التي تم البحث عنها موجودة بالمتغير Rs فتقوم بتعبئة أي أداة تستطيع عرض بيانات جدول مثل data grid أو flexgrid كالتالي

CODE

set datagrid1.datasource = rs

هذا هو كل الموضوع
واخي نصيحة مني دائما حاول وابحث وجرب قبل الحصول على الجواب بصورة سهلة لأن الإنسان قد يريد أشياء لا يستطيع أحد غيره فهم ما يريد
وتحياتي لك وان كان الجواب غير كافي سوف أعرض شرح كامل ان شاء الله لهذه الأدوات

--------------------

سبحان الله
MCP,MCSA,MCDBA,MCSE,MCT
egyptian in jeddah
Email:nasser_m_99@yahoo.com
Mobile : 00966509352278

المهنا	مرجع رابط المشاركة : Feb 13 2005, 10:38 AM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	الاخ العزيز nasser50001 انا اجرب من اكثر من اسبوعين والمشروع واقف وقمت بكثير من المحاولات كانت فاشلة منها set datagrid1.datasource = rs بدون set

محمد بدوي

مرجع رابط المشاركة : Feb 13 2005, 03:00 PM

إدارة الفريق العربي للبرمجة
Group Icon

مجموعة إدارة الفريق العربي للبرمجة
مشاركات : 3,078
رقم العضو 1
انضم في : 2-December 00

لم اقراء كل شيء ولكن الذي يظهر لي انك تبحث بين تاريخين ولذلك استخدك

CODE

SELECT * FROM TABLENAME Where Date1 >= #01/01/2004# and Dat1 <= #01/01/2005#

--------------------

<<<النجاح يصنع النجاح>>>
ومن هذا المنطلق لابد ان تتذوق طعم النجاح مرة واحدة على الاقل لكي تصنع النجاج الذي بعده
و لتحقيق اي نجاح من نقطة الصفر لابد من الفشل بقدر النجاح فلا نجاح بدون فشل ولن تعرف طعم النجاح ان لم تذق طعم الفشل
كما ان الفشل يعني خطوة الى الامام في الطريق الصحيح
ولا تنسى ان اديسون قام ب 800 محاولة لانارة المصباح وفي المرة ال 801 نجح
فكم هي عدد المحاولات التي قمت بها ؟
ادعو لنا بظاهر الغيب

رغيد الطيب

مرجع رابط المشاركة : Feb 13 2005, 05:26 PM

عضو شرف

مجموعة اعضاء
مشاركات : 14
رقم العضو 40,889
انضم في : 2-February 05

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله وبركاته

الاخ العزيز ... لقد اسهب العزيز nasser50001 في شرح الموضوع جزاه الله عني و عنك خيرا ...

و لمزيد من التوضيح :

ارى انك وضعت حقل اسمه YEAR في قاعدة البيانات و نوعه ( نص ) و ينبغي تغييره الى رقم ... كما ان قاعدة البيانات تفتقد الى حقل به تاريخ كامل وليس Year فقط ...

على العموم اذا اردت استخدام DataGrid ربما ستكون بحاجة الى ADODC للتسهيل و اما اذا استخدمت MSHFlexGrid فلست بحاجة الى ADODC في البرنامج المرفق تجد مثال على استخدام الاولى و آخر على استخدام الثانية ... و لانني لم اتمكن من تصفح الكود كاملاً لضيق الوقت عزيزي قمت بعمل فورمين اضافين لكلا الطريقتين كي تتمكن من تفحصهما بهدوء

الشيء الآخر انني استخدمت عبارة SQL كالتالية :

CODE

SQL = "SELECT * FROM Data WHERE Year>=" & DTPicker1.Year & " AND Year<=" & DTPicker2.Year & " ORDER BY Year"

وهذا لكي يتم حصر البيانات بين التاريخين اعتمادا على العام Year لانه الوحد الذي وجده في قاعدة البيانات تبعك

اما اذا احتجت لعمل المقارنة بين التاريخ بشكل كامل وليس العام فقط فينبغي اضافة حقل جديد الى قاعدة البيانات اسمه مثلاً myDate وفيه التاريخ ... و يكفيك بعدها ان تغيير البرنامج تبعنا و سطر الـ SQL بالتحديد كي يصبح :

CODE

SQL = "SELECT * FROM Data WHERE myDate>=#" & CDate(frmsea.DTPicker1.Value) & "# AND Year<=#" & CDate(DTPicker2.Value) & "# ORDER BY myDate"

بدلا عن العبارة الموجودة الان في البرنامج

اخيراً اقول يوجد الكثير من الطرق لتنفيذ هذه العملية غير اني حاولت فقط اعطائك فكرة سريعة لعلها تفي بغرضك و اتمنى ان تغفر لي الاختصار لضيق وقتي عزيزي

السلام عليكم و رحمة الله وبركاته

ملف مرفق ( عددع مرات التحميل : 26 )

maktaba.zip

--------------------

-----------------------------------------------------

لنا في منتدى كانـا ------- احاديث و اشجانــا
تركـــنا فيه احـبابــا -------- و اصحابـا و خلانـــا
لنا في كل ركن فيه ------- رجالٌ كانوا اخوانـــا
فلا الذكرى تفارقنــا ------- و لن ننسى احبانا
سكون الصمت ابكانا ------ و ذا الحرمان اعيانا
فيا ليث الذين فقدت ------ لاينســـون ذكرانـــا

الى من يسمع النجوى، ورب الكون شكوانا

------------------------------------------------------
و يبقى الحنين للـ www.vb4arab.com

nasser50001	مرجع رابط المشاركة : Feb 13 2005, 08:04 PM
عضو مجموعة اعضاء مشاركات : 127 رقم العضو 39,100 انضم في : 4-January 05	ما شاء الله لا قوة الا بالله اخي الكريم رغيد الطيب والله المنتدى اكتسب كنزا كبيرا بالتحاقك به وانه والله لشرف عظيم أن نكون تلاميذك شكرا جزيلا على الرد ولعل الأخ مهنا يطيرا فرحا بهذا الرد الشامل تحياتي لك اخوك ناصر -------------------- سبحان الله MCP,MCSA,MCDBA,MCSE,MCT egyptian in jeddah Email:nasser_m_99@yahoo.com Mobile : 00966509352278

المهنا	مرجع رابط المشاركة : Feb 13 2005, 09:54 PM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	الاخوة الاعزاء شكرا للجميع على المجهود الرائع بس مازالت المشكلة موجود حيث لم يتم عرض البيانات بين تاريخين كاملين الا بالكود التالي لمحمد بدوي SELECT * FROM TABLENAME Where Date1 >= #01/01/2004# and Dat1 <= #01/01/2005# والمشكلة ان #01/01/2004# ثابته غير متغيرة وحاولت عن طريق التكست يعني يكون التاريخين في تكست متغيرة ولم افلح وما زالت مشكلة عرض البيانات في الDataGrid بل adodb هل من حل والشكر موصول الى nasser50001 رغيد الطيب محمد بدوي

nasser50001	مرجع رابط المشاركة : Feb 14 2005, 05:33 PM
عضو مجموعة اعضاء مشاركات : 127 رقم العضو 39,100 انضم في : 4-January 05	أخي مهنا الجمل التي كبتها تعرض السجلات بين تاريخين وتعرض النتائج في اي اداة تريدها وهي مجربة مئة مرة حاول مرة ثانية لعلك أخطأت في وضع علامات التنصيص المزدوجه والفردية -------------------- سبحان الله MCP,MCSA,MCDBA,MCSE,MCT egyptian in jeddah Email:nasser_m_99@yahoo.com Mobile : 00966509352278

المهنا	مرجع رابط المشاركة : Feb 15 2005, 08:51 PM
عضو مجموعة اعضاء مشاركات : 185 رقم العضو 37,163 انضم في : 9-December 04	ما زالت المشكلة لاني اريد الربط بالادو وليس بADODC

1 مستخدم يقرأون هذا الموضوع (0 ضيف0 مستخدم مجهول)

1 أعضاء: eng_ashraf

« الأقدم التالي | منتدى مبرمجي لغة Microsoft Visual Basic | الجديد التالي »

[ Script Execution time: 1.0709 ] [ 14 queries used ] [ ضغط البيانات فعال ]

15/11/2004 م